Create a web page presentation using R Markdown that features a plot created with Plotly.
library(plotly)
## Warning: package 'plotly' was built under R version 3.5.3
## Loading required package: ggplot2
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
data <- rnorm(1000, 1,4)
data2 <- rnorm(1000, 5,4)
p <- plot_ly(alpha = 0.6) %>%
add_histogram(x = data) %>%
add_histogram(x = data2) %>%
layout(barmode = "overlay")
p